Option Explicit On
Option Strict On

Imports System
Imports System.Collections.Generic

Imports KadGen.MetadataWrapper
Imports KadGen.Utility2005

Public Class CommonChecks

   Friend Shared Function StandardColumnChecks( _
             ByVal propertyName As String, _
             ByVal typeName As String) _
             As Nullable(Of Boolean)
      Select Case propertyName.ToLower()
         Case "maxlength"
            Return (Tools.IsTypeNameString(typeName))
         Case "precision", "scale"
            Return (Not Tools.IsTypeNameInteger(typeName) AndAlso Tools.IsTypeNameNumeric(typeName))
         Case Else
            Return Nothing
      End Select
   End Function

End Class
